unit dEmpresa;

interface
uses
classes,
dObjects;

type
Tempresa=class(TdObjects)
private
fflagativo : boolean;
fidempresa : integer;
frazaosocial : string;
    fdtalteracao: TDateTime;
public
constructor create;
destructor destroy; override;
procedure clear;
published
 property flagativo : boolean read fflagativo write fflagativo;
 property idempresa : integer read fidempresa write fidempresa;
 property razaosocial : string read frazaosocial write frazaosocial;
 property dtalteracao : TDateTime read fdtalteracao write fdtalteracao;
end;
implementation
constructor Tempresa.create;
begin
inherited;
clear;
self.AddPK(['idempresa']);
self.TableName := 'empresa';
end;
destructor Tempresa.destroy;
begin
inherited destroy;
end;
procedure Tempresa.clear;
begin
 fflagativo:=false;
 fidempresa:=0;
 frazaosocial:='';
 fdtalteracao := 0 ;
end;


end.
